www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统ACCESS正式版/admin/Down_ClassDelSmall.asp
<%@language=vbscript codepage=936 %> <!--#include file="Conn.asp"--> <!--#include file="Admin.asp"--> <!-- #include file="Inc/Head.asp" --> <% dim SmallClassID,sql SmallClassID=trim(Request("SmallClassID")) SmallClassName=trim(Request("SmallClassName")) if SmallClassID<>"" then sql="delete from SmallClass_down where SmallClassID="&Cint(SmallClassID)&"" conn.Execute sql sql="delete from download where SmallClassName='" & SmallClassName & "'" conn.Execute sql end if call CloseConn() response.redirect "Down_ClassManage.asp" %>